home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / misc / utilitys / losobj.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.6 KB  |  37 lines
  1. 10  REM LEO KRASKA
  2. 20  REM PROGRAM FOR RF II
  3. 30  REM 4/15/84 4/3 EARTH RADIUS V1.1
  4. 40  REM PRECISION 5:PRINT:PRINT:K=0
  5. 50  PRINT"PROGRAM FOR CALCULATING MAXIMUM HEIGHT OF AN OBJECT IN A LOS PATH"
  6. 55  PRINT:PRINT,"by Leo Kraska via k2uyh/wa2tif":PRINT
  7. 60  PRINT:INPUT"RATIO OF EFFECTIVE EARTH RADIUS TO TRUE EARTH RADIUS(.6-5).              FOR AVERAGE VALUE(4/3)HIT RETURN";K
  8. 70  IF K>5 OR K<0.6 THEN K=1.3333
  9. 80  PRINT:INPUT"HEIGHT OF TRANSMITTING ANTENNA IN FEET";TA
  10. 90  PRINT:INPUT"HEIGHT OF RECIEVING ANTENNA IN FEET";RA
  11. 100  PRINT:INPUT"DISTANCE BETWEEN RECIEVER AND TRANSMITTING ANTENNAS IN MILES";LOSD
  12. 110  MD=(3*K*TA/2)^0.5+(3*K*RA/2)^0.5
  13. 120  IF MD<LOSD THEN PRINT :PRINT"DISTANCE BETWEEN ANTENNAS IS TO FAR, MAX. DISTANCE IN MILES IS";MD:GOTO 240
  14. 130  PRINT:INPUT"DISTANCE OF OBJECT TO TRANSMITTER ANTENNA IN MILES";DIS
  15. 140  PRINT:INPUT"HEIGHT OF OBJECT IN FEET";HI
  16. 150  SLOAP=(RA-TA)/LOSD
  17. 160  IF LOSD/2< DIS THEN DOS=LOSD-DIS ELSE DOS=DIS
  18. 170  O=(DIS*SLOAP+TA)-(2*DOS^2)/(3*K)
  19. 180  IF O<= HI THEN PRINT:PRINT"OBJECT BLOCKING PATH"
  20. 190  IF O>HI THEN PRINT:PRINT"OBJECT NOT BLOCKING PATH"
  21. 200  PRINT:PRINT"HEIGHT OF OBJECT IN FEET IS";HI
  22. 210  PRINT:PRINT"MAXIMUM HEIGHT OF OBJECT IN FEET IS";O
  23. 220  PRINT:INPUT"DO YOU WANT A HARD COPY(Y/N)";PR$
  24. 230  IF PR$="Y" THEN GOSUB 270
  25. 240  GOSUB 340
  26. 250  IF AN$="Y" THEN 60
  27. 260  END
  28. 270  LPRINT,:LPRINT,:LPRINT,"THE RATIO OF EFFECTIVE EARTH RADIUS TO TRUE EARTH RADIUS IS";K
  29. 275  LPRINT,:LPRINT,"MAXIMUM DISTANCE BETWEEN ANTENNAS IN MILES IS";MD
  30. 280  LPRINT,:LPRINT,"HEIGHT OF TRANSMITTING ANTENNA IN FEET IS";TA
  31. 290  LPRINT,:LPRINT,"HEIGHT OF RECIEVING ANTENNA IN FEET IS";RA
  32. 300  LPRINT,:LPRINT,"DISTANCE BETWEEN ANTENNAS IN MILES IS";LOSD
  33. 310  LPRINT,:LPRINT,"DISTANCE OF OBJECT TO TRANSMITTER ANTENNA IN MILES IS";DIS
  34. 320  LPRINT,:LPRINT,"HEIGHT OF OBJECT IN FEET IS";HI
  35. 330  LPRINT,:LPRINT,"MAXIMUM OBJECT HEIGHT IN FEET IS";O:RETURN
  36. 340  PRINT:INPUT"DO YOU WANT TO CONTINUE(Y/N)";AN$:RETURN
  37.